home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
cnet
/
cnettoolkit2a.lha
/
Routines
/
TIM
< prev
next >
Wrap
Text File
|
1994-12-13
|
350b
|
6 lines
TIM: procedure;parse arg ti,mo;ti=right(ti,6);select
when mo=12&verify(ti,'ap','M')~=6 then if left(ti,2)>12 then ti=' 'left(ti,2)-12||substr(ti,3,3)'p';else ti=ti'a'
when mo=24&verify(ti,'ap','M')=6 then ti=left(ti,2)+12||substr(ti,3,3)
otherwise if mo=0 then ti=(left(ti,2)+(verify(ti,'ap','M')=6)*12)*60+substr(ti,4,2)
end;return ti